home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / cursman / cursman.frm < prev    next >
Text File  |  1995-05-08  |  6KB  |  220 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Cursor Manipulations - (c)1992 Pierre Fillion"
  6.    ClientHeight    =   4680
  7.    ClientLeft      =   1290
  8.    ClientTop       =   1425
  9.    ClientWidth     =   6195
  10.    ControlBox      =   0   'False
  11.    Height          =   5085
  12.    Left            =   1230
  13.    LinkMode        =   1  'Source
  14.    LinkTopic       =   "Form1"
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   4680
  18.    ScaleMode       =   0  'User
  19.    ScaleWidth      =   6195
  20.    Top             =   1080
  21.    Width           =   6315
  22.    Begin CommandButton Command6 
  23.       Caption         =   "&UnClip Cursor"
  24.       Height          =   315
  25.       Left            =   3450
  26.       TabIndex        =   8
  27.       Top             =   4200
  28.       Width           =   1965
  29.    End
  30.    Begin CommandButton Command5 
  31.       Caption         =   "&Clip Cursor"
  32.       Height          =   315
  33.       Left            =   750
  34.       TabIndex        =   7
  35.       Top             =   4200
  36.       Width           =   1965
  37.    End
  38.    Begin CommandButton Command4 
  39.       Caption         =   "&Show cursor"
  40.       Height          =   315
  41.       Left            =   3450
  42.       TabIndex        =   6
  43.       Top             =   3750
  44.       Width           =   1965
  45.    End
  46.    Begin CommandButton Command3 
  47.       Caption         =   "&Hide cursor"
  48.       Height          =   315
  49.       Left            =   750
  50.       TabIndex        =   5
  51.       Top             =   3750
  52.       Width           =   1965
  53.    End
  54.    Begin CommandButton Command1 
  55.       Caption         =   "E&xit"
  56.       Height          =   315
  57.       Left            =   3450
  58.       TabIndex        =   1
  59.       Top             =   3300
  60.       Width           =   1965
  61.    End
  62.    Begin CommandButton Command2 
  63.       Caption         =   "&Go to position "
  64.       Height          =   315
  65.       Left            =   750
  66.       TabIndex        =   2
  67.       Top             =   3300
  68.       Width           =   1965
  69.    End
  70.    Begin Label Label3 
  71.       Alignment       =   2  'Center
  72.       BorderStyle     =   1  'Fixed Single
  73.       Caption         =   "Click in box to set a position"
  74.       FontBold        =   -1  'True
  75.       FontItalic      =   0   'False
  76.       FontName        =   "MS Sans Serif"
  77.       FontSize        =   12
  78.       FontStrikethru  =   0   'False
  79.       FontUnderline   =   0   'False
  80.       Height          =   2565
  81.       Left            =   150
  82.       TabIndex        =   4
  83.       Top             =   600
  84.       Width           =   5865
  85.    End
  86.    Begin Label Label2 
  87.       BackColor       =   &H00C0C0C0&
  88.       BorderStyle     =   1  'Fixed Single
  89.       FontBold        =   -1  'True
  90.       FontItalic      =   0   'False
  91.       FontName        =   "MS Sans Serif"
  92.       FontSize        =   9.75
  93.       FontStrikethru  =   0   'False
  94.       FontUnderline   =   0   'False
  95.       Height          =   315
  96.       Left            =   3300
  97.       TabIndex        =   3
  98.       Top             =   150
  99.       Width           =   2715
  100.    End
  101.    Begin Label Label1 
  102.       BackColor       =   &H00C0C0C0&
  103.       BorderStyle     =   1  'Fixed Single
  104.       FontBold        =   -1  'True
  105.       FontItalic      =   0   'False
  106.       FontName        =   "MS Sans Serif"
  107.       FontSize        =   9.75
  108.       FontStrikethru  =   0   'False
  109.       FontUnderline   =   0   'False
  110.       ForeColor       =   &H00000000&
  111.       Height          =   315
  112.       Left            =   150
  113.       TabIndex        =   0
  114.       Top             =   150
  115.       Width           =   3015
  116.    End
  117. End
  118. Sub Command1_Click ()
  119.  
  120. 'Exit the program
  121. End
  122.  
  123. End Sub
  124.  
  125. Sub Command2_Click ()
  126.  
  127. 'Call API function to set cursor position on the screen
  128. 'defined in tPos.X and tPos.Y in Sub Label3_Click ()
  129.  
  130. A% = SetCursorPos(tPos.x, tPos.Y)
  131.  
  132. End Sub
  133.  
  134. Sub Command3_Click ()
  135.  
  136. 'Verify if the cursor is already hidden (to prevent stacking)
  137. 'If not hide it!
  138.  
  139. If C_State <> C_Hide Then
  140.    Ret% = ShowCursor(C_Hide)
  141.    C_State = C_Hide
  142.    Form1.Label3.Caption = "Press Alt+S to show cursor"
  143. End If
  144.   
  145. End Sub
  146.  
  147. Sub Command4_Click ()
  148.  
  149. 'Verify if the cursor is already showed (to prevent stacking)
  150. 'If not show it!
  151.  
  152. If C_State <> C_Show Then
  153.    Ret% = ShowCursor(C_Show)
  154.    C_State = C_Show
  155.    Form1.Label3.Caption = "Click in box to set a position"
  156. End If
  157.  
  158. End Sub
  159.  
  160. Sub Command5_Click ()
  161.  
  162. 'Clip Positions defined on Form1 positions
  163. 'Divided by 15 to convert twips in pixels for the API call
  164. ClipWin.Left = Form1.Left / 15
  165. ClipWin.Top = Form1.Top / 15
  166. ClipWin.Right = (Form1.Left + Form1.Width) / 15
  167. ClipWin.Bottom = (Form1.Top + Form1.Height) / 15
  168.  
  169. Form1.Label3.Caption = "Click in box to set a position" + Chr$(13) + "Clip= T:" + Str$(ClipWin.Top) + " L:" + Str$(ClipWin.Left) + " R:" + Str$(ClipWin.Right) + " B:" + Str$(ClipWin.Bottom)
  170.  
  171. 'Call API to clip cursor in positions
  172. Call ClipCursor(ClipWin)
  173.  
  174. End Sub
  175.  
  176. Sub Command6_Click ()
  177.  
  178. 'Clip Positions defined on screen resolution
  179. 'Divided by 15 to convert twips in pixels for the API call
  180. ClipWin.Left = 0
  181. ClipWin.Top = 0
  182. ClipWin.Right = Screen.Width / 15
  183. ClipWin.Bottom = Screen.Height / 15
  184.  
  185. Form1.Label3.Caption = "Click in box to set a position" + Chr$(13) + "Clip= T:" + Str$(ClipWin.Top) + " L:" + Str$(ClipWin.Left) + " R:" + Str$(ClipWin.Right) + " B:" + Str$(ClipWin.Bottom)
  186.  
  187. 'Call API to clip cursor in positions
  188. Call ClipCursor(ClipWin)
  189.  
  190. End Sub
  191.  
  192. Sub Label3_Click ()
  193.  
  194. 'Store the current position of the cursor on mouse click in Label3
  195. Call GetCursorPos(tPos)
  196.  
  197. End Sub
  198.  
  199. Sub Picture1_Click ()
  200. Call GetCursorPos(tPos)
  201. End Sub
  202.  
  203. Sub Picture2_Click ()
  204. Call GetCursorPos(tPos)
  205. Call Main
  206. End Sub
  207.  
  208. Sub Picture3_Click ()
  209. Call GetCursorPos(tPos)
  210. Call Main
  211.  
  212. End Sub
  213.  
  214. Sub Picture4_Click ()
  215. Call GetCursorPos(tPos)
  216. Call Main
  217.  
  218. End Sub
  219.  
  220.